home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 16 Vendor Support / 80COL.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  4KB  |  104 lines
  1. 10 GOTO2015
  2. 15 POKE56,32:POKE55,.
  3. 20 CLR:Z$=CHR$(.):M$=CHR$(13)
  4. 22 GOSUB900
  5. 24 PRINT"[147][142]"
  6. 25 PRINT"ENTER DEVICE # OF SOURCE DRIVE."
  7. 30 PRINT"(ENTER 0 TO EXIT.)"
  8. 35 PRINT"  8[145]":INPUTD:IFD=.THENGOSUB800:END
  9. 40 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO25
  10. 45 POKE2,36:POKE184,8:POKE185,0:POKE186,D
  11. 50 POKE183,1:POKE187,2:POKE188,.:SYS65472
  12. 55 CLOSE8:IFPEEK(144)THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO25
  13. 57 OPEN15,D,15:Y=15:GOSUB500:IFA>19THENCLOSE15:GOTO25
  14. 60 PRINT"[147]";
  15. 65 PRINT"PRESS D FOR DIRECTORY."
  16. 70 PRINT"PRESS S TO START OVER."
  17. 75 PRINT"PRESS F TO ENTER TEXT FILENAME."
  18. 80 GETA$:IFA$="D"THENOPEN8,D,0,"$":SYS49152:PRINT"[147]";:GOTO65
  19. 85 IFA$="S"THENPRINT"[147]":CLOSE15:GOTO25
  20. 90 IFA$="F"THENPRINT"[147]";:GOTO100
  21. 95 GOTO80
  22. 100 PRINT"ENTER FILENAME."
  23. 102 PRINT"(PRESS RETURN TO START OVER.)"
  24. 105 F$="":INPUTF$:IFF$=""THENCLOSE15:PRINT:GOTO25
  25. 110 OPEN8,D,8,F$:Y=15:GOSUB500
  26. 115 IFA>19THENCLOSE8:GOTO100
  27. 120 GOSUB600
  28. 125 PRINT"[147]"
  29. 130 PRINT"ENTER DEVICE # OF DESTINATION DRIVE."
  30. 135 PRINT"(ENTER 0 TO START OVER.)"
  31. 140 PRINT"  8[145]":INPUTE:IFE=.THENGOSUB805:PRINT:GOTO25
  32. 145 IFE<4ORE>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO130
  33. 150 POKE251,36:POKE252,36:POKE184,9:POKE185,0:POKE186,E
  34. 155 POKE183,2:POKE187,251:POKE188,.:SYS65472
  35. 160 IFPEEK(144)THENPRINT"[147]?DEVICE";E;"[157] NOT PRESENT":CLOSE9:GOTO130
  36. 165 OPEN16,E,15:Y=16:GOSUB500:IFA>19THENCLOSE9:CLOSE16:GOTO130
  37. 170 PRINT"[147]0 ";
  38. 175 FORI=1TO6:GET#9,A$:NEXT
  39. 180 GET#9,A$:IFA$=""THENPRINT:GOTO190
  40. 185 PRINTA$;:GOTO180
  41. 190 GET#9,A$:GET#9,A$
  42. 195 GET#9,A$:K=ASC(A$+Z$)
  43. 200 GET#9,A$:K=K+256*ASC(A$+Z$)
  44. 205 PRINT"[157]";K;
  45. 210 GET#9,A$:PRINTA$;:IFSTTHEN220
  46. 215 GOTO210
  47. 220 CLOSE9:PRINT:PRINT"SOURCE FILENAME: ";F$
  48. 225 PRINT"[157]";N;"BLOCKS"
  49. 230 IFN>KTHENPRINT"NOT ENOUGH ROOM ON DISK":CLOSE16:GOTO130
  50. 235 PRINT"ENTER DESTINATION FILENAME."
  51. 240 PRINT"(ENTER * FOR SAME FILENAME.)"
  52. 242 PRINT"(PRESS RETURN TO REENTER DEVICE #.)"
  53. 245 G$="":INPUTG$:IFG$=""THENCLOSE16:PRINT:GOTO130
  54. 247 IFG$="*"THENG$=F$
  55. 250 OPEN9,E,9,G$+",W":Y=16:GOSUB500
  56. 255 IFA>19THENCLOSE9:GOTO235
  57. 260 PRINT"[147]SOURCE FILENAME: ";F$
  58. 265 PRINT"DESTINATION FILENAME: ";G$
  59. 270 PRINT"[157]";N;"BLOCKS TO PROCESS"
  60. 275 PRINT"STARTING OPERATION..."
  61. 280 PRINT"     READING                WRITING"
  62. 285 PRINT"     [163][163][163][163][163][163][163]                [163][163][163][163][163][163][163]"
  63. 290 PRINT"       000                    000"
  64. 292 POKE51199,32
  65. 295 SYS49371
  66. 300 PRINT"...DONE.":GOTO25
  67. 500 INPUT#Y,A,B$,C,Z
  68. 505 IFA<20THEN515
  69. 510 PRINT:PRINTA:PRINT:PRINTB$:PRINT:PRINTC,Z:PRINT
  70. 515 RETURN
  71. 600 PRINT#15,"M-R";CHR$(144);CHR$(2);CHR$(5)
  72. 605 GET#15,A$:S=ASC(A$+Z$)
  73. 610 GET#15,A$:GET#15,A$:GET#15,A$
  74. 615 GET#15,A$:P=ASC(A$+Z$)
  75. 620 OPEN5,D,5,"#"
  76. 625 PRINT#15,"U1:";5;0;18;S
  77. 630 PRINT#15,"B-P";5;P+28
  78. 635 GET#5,A$:N=ASC(A$+Z$)
  79. 640 GET#5,A$:N=N+256*ASC(A$+Z$)
  80. 645 PRINT#15,"B-P";5;P+3
  81. 650 I=.:F$=""
  82. 655 GET#5,A$
  83. 660 IFI=16ORA$="[160]"THENCLOSE5:RETURN
  84. 665 F$=F$+A$:I=I+1:GOTO655
  85. 800 POKE56,160
  86. 805 CLOSE15:CLOSE16:CLOSE8:CLOSE9:RETURN
  87. 900 PRINT"[147][212]HIS PROGRAM IS FOR AN [193][211][195][201][201] (NOT"
  88. 905 PRINT"[208][197][212][193][211][195][201][201]) TEXT FILE.  [201]T WILL FORMAT IT"
  89. 910 PRINT"FOR 80 COLUMNS, ENDING EACH LINE WITH A"
  90. 915 PRINT"[195][210]/[204][198] PAIR.  [201]F YOU USE THE SAME DRIVE"
  91. 920 PRINT"FOR SOURCE AND DESTINATION, THE MAXIMUM"
  92. 925 PRINT"SIZE FOR THE SOURCE FILE IS ABOUT 332"
  93. 930 PRINT"BLOCKS (APPROXIMATELY 82 [203]).  [215]ITH TWO"
  94. 935 PRINT"DRIVES, THAT NUMBER IS DOUBLED."
  95. 940 PRINT"             [[208][210][197][211][211] [210][197][212][213][210][206]][146]";
  96. 945 GETA$:IFA$=M$THENRETURN
  97. 950 GOTO945
  98. 2015 POKE56,99:PRINT"[147][142]ONE MOMENT PLEASE..."
  99. 2020 P=PEEK(45)+256*PEEK(46)-1
  100. 2025 IFPEEK(P)THENP=P-1:GOTO2025
  101. 2030 P=P-886:S=49152
  102. 2035 FORI=.TO886:POKES+I,PEEK(P+I):NEXT
  103. 2040 POKE2054,48:GOTO15
  104.